home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Data.dxr / Internal_13_Jump TO.ls < prev    next >
Encoding:
Text File  |  2003-07-28  |  909 b   |  37 lines
  1. property myGoPlace, myTargetType, myEventStyle
  2.  
  3. on mouseUp me
  4.   if myEventStyle = "Mouse" then
  5.     case myTargetType of
  6.       "Marker":
  7.         go(myGoPlace)
  8.       "Movie":
  9.         go(1, myGoPlace)
  10.     end case
  11.   end if
  12. end
  13.  
  14. on exitFrame me
  15.   if myEventStyle = "Frame" then
  16.     case myTargetType of
  17.       "Marker":
  18.         go(myGoPlace)
  19.       "Movie":
  20.         go(1, myGoPlace)
  21.     end case
  22.   end if
  23. end
  24.  
  25. on isOKToAttach me, aSpriteType, aSpriteNum
  26.   case aSpriteType of
  27.     #graphic:
  28.       return 1
  29.     #script:
  30.       return 1
  31.   end case
  32. end
  33.  
  34. on getPropertyDescriptionList
  35.   return [#myEventStyle: [#comment: "Udalost je Mouse alebo Frame:", #format: #string, #range: ["Mouse", "Frame"], #default: "Frame"], #myTargetType: [#comment: "Skok na Marker alebo Movie:", #format: #string, #range: ["Marker", "Movie"], #default: "Marker"], #myGoPlace: [#comment: "Skok na:", #format: #string, #default: "Main"]]
  36. end
  37.